home *** CD-ROM | disk | FTP | other *** search
/ Il Mio Computer 2006 May / Mico05CD.bin / Utility / QuickZip / quickzip.exe / {app} / Scripts / C_Syncthronize.akp < prev    next >
Encoding:
Text File  |  2003-05-11  |  2.8 KB  |  92 lines
  1. //Compare and update the files in <Dir1> and <Dir2>.
  2. //Backup overwrited file to <BackupChanges>.
  3. const Dir1 = 'C:\1';
  4.       Dir2 = 'C:\2';
  5.       BackupChanges = 'C:\Temp\Backup.zip';
  6.       SubDir = True;
  7. var
  8.     Path1,Path2 : String;
  9.     BckupChange : string;
  10. var aForm : TForm;
  11.     Button1,Button2,Button3,ConfirmButton : TButton;
  12.     Edit1,Edit2,Edit3 : TEdit;
  13.     Label1,Label2,Label3 : TLabel;
  14. procedure Button1Click(sender: TObject);
  15. var k : string;
  16. begin
  17.    k := AskDirDialog(Edit1.text);
  18.    if k <> '' then
  19.      Edit1.text := k;
  20. end;
  21. procedure Button2Click(sender: TObject);
  22. var k : string;
  23. begin
  24.    k := AskDirDialog(Edit2.text);
  25.    if k <> '' then
  26.      Edit2.text := k;
  27. end;
  28. procedure Button3Click(sender: TObject);
  29. var k : string;
  30. begin
  31.    k := AskFilenameDialog(Edit3.text,'Zip Archive|*.zip');
  32.    if k <> '' then
  33.      Edit3.text := k;
  34. end;
  35. procedure Continueclick(sender: TObject);
  36. begin
  37.   aForm.Close;
  38. end;
  39. function AskDirectory : boolean;
  40. begin
  41.     Result := False;
  42.     aForm := New_Form(100,100,500,200,'Please Configure and press Continue');
  43.     Label1 := new_Label(aForm,10,10,'Directory 1 : ');
  44.     Edit1 := new_Edit(aForm,120,10,200,20,Dir1);
  45.     Button1 := New_Button(aForm, 350, 10, 100, 20, 'Browse');
  46.     Button1.OnClick := @Button1Click;
  47.     Label2 := new_Label(aForm,10,40,'Directory 2 : ');
  48.     Edit2 := new_Edit(aForm,120,40,200,20,Dir2);
  49.     Button2 := New_Button(aForm, 350, 40, 100, 20, 'Browse');
  50.     Button2.OnClick := @Button2Click;
  51.     Label3 := new_Label(aForm,10,70,'Backup Changes to : ');
  52.     Edit3 := new_Edit(aForm,120,70,200,20,BackupChanges);
  53.     Button3 := New_Button(aForm, 350, 70, 100, 20, 'Browse');
  54.     Button3.OnClick := @Button3Click;
  55.     ConfirmButton := New_Button(aForm, 350, 130, 100, 30, 'Continue');
  56.     ConfirmButton.Default := True;
  57.     ConfirmButton.ModalResult := mrOK;
  58.     ConfirmButton.OnClick := @Continueclick;
  59.     show_Form(aForm);
  60.     if aForm.modalResult = Mrok then
  61.     begin
  62.     BckupChange := Edit3.text;
  63.     Path1 := AppendSlash(Edit1.text);
  64.     Path2 := AppendSlash(Edit2.text);
  65.     Result := true;
  66.     end;
  67. end;
  68.  
  69. procedure ReWritepath;
  70. var k : string;
  71.     ts : TStringlist;
  72. begin
  73.     k := AskFilenameDialog('c:\Syncthronize.akp','Akp Script|*.akp');
  74.     if k <> '' then
  75.      begin
  76.        ts := TStringlist.create;
  77.        if fileexists(programpath+'Scripts\Syncthronize.akp') then
  78.        ts.loadfromfile(programpath+'Scripts\Syncthronize.akp');
  79.        ts.strings[2] := 'const dir1='''+path1+''';';
  80.        ts.strings[3] := '         dir2='''+path2+''';';
  81.        ts.strings[4] := '        BackupChanges='''+BckupChange+''';';
  82.        ts.savetofile(k);
  83.      end;
  84. end;
  85.  
  86. begin
  87.   Writeln('test');
  88.   if AskDirectory then
  89.    ReWritepath;
  90.   Writeln('Completed!');
  91. end.
  92.